uses FileCtrl;


procedure TForm1.Button1Click(Sender: TObject);
begin
  if DirectoryExists('c:\test') then
    ShowMessage('Path exists!')
    else
    ShowMessage('There is no such path!');
end;